home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2000 December & 2001 January / PC World Plus! D.bin / games / Age2XTrial.exe / CABFILE / MSGAME.CAB / Data / gamedata_x1.drs / Unnamed File 000018.bina < prev    next >
Text File  |  2000-07-18  |  4KB  |  158 lines
  1. #load-if-not-defined VICTORY-CONQUEST
  2.  
  3. (defrule
  4.     (goal personality 1)
  5.     (not (goal wonder-attempt NO) )
  6. =>
  7.     (set-goal wonder-attempt NO)
  8. )
  9.  
  10. (defrule
  11.     (goal wonder-attempt MAYBE)
  12.     (taunt-detected any-ally 200)
  13. =>
  14.     (set-goal wonder-attempt NO)
  15.     (set-goal upgrade-conflict NO)
  16.     (acknowledge-taunt this-any-ally 200)
  17.     (disable-self)
  18. )
  19.  
  20. ;should we construct a wonder?
  21. (defrule
  22.     (goal wonder-attempt MAYBE)
  23.     (current-age == imperial-age)
  24.     (population > unit-max)
  25.     (wood-amount >= 500)
  26.     (gold-amount >= 500)
  27.     (stone-amount >= 500)
  28.     (cc-players-building-type-count every-ally wonder == 0)
  29.     (cc-players-building-type-count every-enemy wonder == 0)
  30.     (cc-players-building-type-count every-neutral wonder == 0)
  31.     (not (goal personality 1) )
  32. =>
  33.     (set-goal upgrade-conflict NOTICE)
  34.     (set-goal wonder-attempt POSSIBLE)
  35.     (chat-to-player-using-id every-ally 22410)    ;200
  36.     (disable-timer t-ageup)
  37.     (disable-self)
  38. )
  39.  
  40. (defrule
  41.     (goal wonder-attempt POSSIBLE)
  42. =>
  43.     (enable-timer t-ageup 1)
  44.     (disable-self)
  45. )
  46.  
  47. (defrule
  48.     (timer-triggered t-ageup)
  49.     (goal wonder-attempt POSSIBLE)
  50.     (stone-amount < 1000)
  51. =>
  52.     (chat-to-player every-ally "6")
  53.     (disable-timer t-ageup)
  54.     (enable-timer t-ageup 150)
  55. )
  56.  
  57. (defrule
  58.     (timer-triggered t-ageup)
  59.     (goal wonder-attempt POSSIBLE)
  60.     (gold-amount < 1000)
  61. =>
  62.     (chat-to-player every-ally "5")
  63.     (disable-timer t-ageup)
  64.     (enable-timer t-ageup 150)
  65. )
  66.  
  67. (defrule
  68.     (timer-triggered t-ageup)
  69.     (goal wonder-attempt POSSIBLE)
  70.     (wood-amount < 1000)
  71. =>
  72.     (chat-to-player every-ally "4")
  73.     (disable-timer t-ageup)
  74.     (enable-timer t-ageup 150)
  75. )
  76.  
  77. (defrule
  78.     (goal wonder-attempt POSSIBLE)
  79.     (can-build-with-escrow wonder)
  80. =>
  81.     (set-strategic-number sn-maximum-town-size 10)
  82.     (set-strategic-number sn-percent-civilian-builders 90)
  83.     (set-strategic-number sn-cap-civilian-builders 50)
  84.     (set-strategic-number sn-percent-civilian-gatherers 10)
  85.     (chat-local-to-self "Time to Wonder")
  86.     (set-goal wonder-attempt YES)
  87.     (disable-timer t-ageup)
  88.     (enable-timer t-ageup 30)
  89.     (disable-self)
  90. )
  91.  
  92. (defrule
  93.     (goal wonder-attempt YES)
  94.     (building-type-count farm > 0)
  95. =>
  96.     (delete-building farm)
  97. )
  98.  
  99. (defrule
  100.     (goal wonder-attempt YES)
  101.     (building-type-count farm == 0)
  102.     (can-build-with-escrow wonder)
  103. =>
  104.     (release-escrow wood)
  105.     (release-escrow gold)
  106.     (release-escrow stone)
  107.     (build wonder)
  108.     (set-goal upgrade-conflict NO)
  109.     (set-goal wonder-attempt NO)
  110.     (disable-self)
  111. )
  112.  
  113. (defrule
  114.     (building-type-count-total wonder > 0)
  115. =>
  116.     (set-strategic-number sn-maximum-town-size imperial-town-size)
  117.     (disable-self)
  118. )
  119.  
  120. (defrule
  121.     (building-type-count wonder > 0)
  122. =>
  123.     (set-strategic-number sn-percent-civilian-builders 15)
  124.     (set-strategic-number sn-cap-civilian-builders 8)
  125.     (set-strategic-number sn-percent-civilian-gatherers 85)
  126.     (disable-self)
  127. )
  128.  
  129. ;***********************************
  130. ;wonder-bashing
  131. ;delete wonder if someone else has beaten us to the punch
  132. (defrule
  133.     (building-type-count wonder == 0)
  134.     (building-type-count-total wonder > 0)
  135.     (cc-players-building-type-count any-ally wonder > 0)
  136.     (or
  137.         (enemy-captured-relics)
  138.         (or
  139.             (cc-players-building-type-count any-enemy wonder > 0)
  140.             (cc-players-building-type-count any-neutral wonder > 0)
  141.         )
  142.     )
  143. =>
  144.     (delete-building wonder)
  145.     (set-strategic-number sn-maximum-town-size imperial-town-size)
  146.     (set-strategic-number sn-percent-civilian-builders 15)
  147.     (set-strategic-number sn-cap-civilian-builders 8)
  148.     (set-strategic-number sn-percent-civilian-gatherers 85)
  149.     (set-goal wonder-attempt NO)
  150.     (set-goal upgrade-conflict NO)
  151.     (disable-self)
  152. )
  153.  
  154. #end-if
  155.  
  156.  
  157.  
  158.